object MsgMemoEditor: TMsgMemoEditor
  Left = 32
  Top = 183
  Width = 339
  Height = 264
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSizeToolWin
  Caption = 'MsgMemoEditor'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object dTop: TDock97
    Left = 0
    Top = 0
    Width = 331
    Height = 34
    object Toolbar: TToolbar97
      Left = 0
      Top = 0
      Caption = 'Tools'
      CloseButton = False
      DockableTo = [dpTop]
      DockedTo = dTop
      DockPos = 0
      FullSize = True
      PopupMenu = mPopup
      TabOrder = 0
      object bSave: TToolbarButton97
        Left = 0
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Save'
        ParentShowHint = False
        ShowHint = True
        OnClick = bSaveClick
      end
      object bCancel: TToolbarButton97
        Left = 36
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Clear'
        ParentShowHint = False
        ShowHint = True
        OnClick = bCancelClick
      end
      object ToolbarSep971: TToolbarSep97
        Left = 30
        Top = 0
      end
    end
  end
  object eMemo: TMemo
    Left = 0
    Top = 34
    Width = 331
    Height = 196
    Align = alClient
    PopupMenu = mPopup
    TabOrder = 1
  end
  object dFont: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 8
    Top = 112
  end
  object mPopup: TPopupMenu
    Left = 8
    Top = 152
    object mUndo: TMenuItem
      Caption = '&Undo'
      ShortCut = 32776
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mCut: TMenuItem
      Caption = 'Cu&t'
      OnClick = mCutClick
    end
    object mCopy: TMenuItem
      Caption = '&Copy'
      OnClick = mCopyClick
    end
    object mPaste: TMenuItem
      Caption = '&Paste'
      OnClick = mPasteClick
    end
    object mDelete: TMenuItem
      Caption = '&Delete'
      OnClick = mDeleteClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object mSelectAll: TMenuItem
      Caption = 'Select &All'
      OnClick = mSelectAllClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object mSave: TMenuItem
      Caption = '&Save memo'
      ShortCut = 16467
      OnClick = bSaveClick
    end
    object mClear: TMenuItem
      Caption = 'C&lear memo'
      ShortCut = 16430
      OnClick = bCancelClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object mFont: TMenuItem
      Caption = '&Font...'
      OnClick = mFontClick
    end
    object mStayonTop: TMenuItem
      Caption = 'Al&ways on top'
      Checked = True
      OnClick = mStayonTopClick
    end
    object mClose: TMenuItem
      Caption = 'Close'
      ShortCut = 27
      Visible = False
      OnClick = mCloseClick
    end
  end
  object chkTimer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = chkTimerTimer
    Left = 112
    Top = 112
  end
end